home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok75 / levenshtein / levenshtein.dok next >
Text File  |  1993-11-04  |  1KB  |  31 lines
  1. (****************************************************************************
  2. :Program.       Levenshtein.mod
  3. :Contents.      Routines to compare strings
  4. :Author.        Richard Günther [gvm]
  5. :Address.       HeilbronnerStr.267, 7410 Reutlingen
  6. :Phone.         07121/66432
  7. :Copyright.     Freeware
  8. :Language.      Oberon
  9. :Translator.    AmigaOberon v2.14d
  10. :History.       V1.0 [gvm] 01-Jan-92  first implementation
  11. :Bugs.          none known, string length max. 64 chars (4KB buffer !)
  12. ****************************************************************************)
  13.  
  14. Dieses Modul beinhaltet eine Prozedur, die nach dem System der gewichteten
  15. Levenshtein-Distanz den Grad der Ähnlichkeit zweier Strings feststellt.
  16.  
  17.   PROCEDURE LDistance*(string1,string2    : ARRAY OF CHAR): INTEGER ;
  18.   INPUTS: string1     erster String
  19.   INPUTS: string2     zweiter String
  20.   RESULT: Die errechnete "Distanz" der beiden Strings oder -1, wenn sie
  21.           zu lang waren (max. 64 Zeichen).
  22.  
  23. Das Modul könnte z.B. für einen Datei-Find-Befehl verwendet werden, der
  24. zum Finden von Dateien dient, deren Namen man nicht mehr exakt kennt.
  25.  
  26. Das Testmodul errechnet jeweils die Distanz zwischen zwei eingegebenen
  27. Strings. Um das Programm abzubrechen sind zwei leere Strings einzugeben.
  28.  
  29.  
  30.   Viel Spaß!
  31.